home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / check v3 dez vc (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  35 lines

  1. 10 REM***************
  2. 11 REM*             *
  3. 12 REM* CHECKSUMMER *
  4. 13 REM*             *
  5. 14 REM* V3     VC20 *
  6. 15 REM*             *
  7. 16 REM*   WRITTEN   *
  8. 17 REM* MAERZ  1985 *
  9. 18 REM*      BY     *
  10. 19 REM*F. LONCZEWSKI*
  11. 20 REM***************
  12. 21 PRINT"[147] CHECKSUMMER V3 VC-20[146]"
  13. 22 PRINT"EINEN MOMENT, BITTE..."
  14. 23 FORI=827TO1019:READA:POKEI,A
  15. 24 PS=PS+A+1:NEXTI
  16. 25 IFPS<>24464THENPRINT"PRUEFSUMMENFEHLER !":END
  17. 26 SYS981:PRINT"CHECKSUMMER AKTIVIERT."
  18. 27 PRINT"AN :SYS981"
  19. 28 PRINT"AUS:SYS58459, BEI CAS-    SETTE ZUSAETZLICH     RUN/STOP & RESTORE"
  20. 29 PRINT"BEI AKTIVIERTEM CHECK-SUMMER KEIN";
  21. 30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)  ERLAUBT!":NEW
  22. 31 DATA32,95,3,134,122,132,123,32,115,0,170,240,243,162,255
  23. 32 DATA134,58,144,10,162,0,134,255,32,121,197,76,225,199,162
  24. 33 DATA1,134,255,76,156,196,166,255,224,1,240,3,76,96,197
  25. 34 DATA160,2,169,0,170,133,254,177,95,240,40,201,32,208,3
  26. 35 DATA200,208,245,133,253,138,41,7,170,240,14,72,165,253,24
  27. 36 DATA42,105,0,202,208,249,133,253,104,170,232,165,253,24,101
  28. 37 DATA254,133,254,76,119,3,192,4,48,219,198,214,165,214,72
  29. 38 DATA162,3,169,32,157,1,4,189,209,3,32,210,255,202,16
  30. 39 DATA242,166,254,169,0,32,205,221,169,62,32,210,255,104,133
  31. 40 DATA214,32,135,229,169,141,32,210,255,162,0,134,255,240,148
  32. 41 DATA9,60,18,19,169,59,141,2,3,169,3,141,3,3,165
  33. 42 DATA186,201,1,208,16,169,116,141,48,3,141,50,3,169,196
  34. 43 DATA141,49,3,141,51,3,173,136,2,141,170,3,96
  35.